home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d18
/
music.arc
/
MUSIC.PAS
< prev
Wrap
Pascal/Delphi Source File
|
1991-04-28
|
8KB
|
209 lines
PROGRAM music;
uses crt;
const s = 50; o = 100; q = 200; tq = 300; h = 400; th = 500; w = 800;
{ sixteenth,eighth,quarter,half,whole }
lC = 262; lD = 294; lE = 330; lF = 350; lG = 392; lA = 440; lB = 494;
lCs= 277; lDs= 311; lFs= 370; lGs= 415; lAs= 466;
C = 523; D = 587; E = 659; F = 698; G = 784; A = 880; B = 988;
Cs = 554; Ds = 622; Fs = 740; Gs = 830; As = 932;
hC = 1046; { two octaves } { constants for Play procedure }
var
count:integer;
{--------------------------------------------------------------------}
procedure Play (Note, Value:integer );
begin sound (Note);
Delay (Value);
NoSound;
Delay (20);
end;
{====================================================================}
procedure LittleLamb;
begin
Play (E,q); Play (D,q); Play (C,q);
Play (D,q); Play (E,q); Play (E,q);
Play (E,h);
Play (D,q); Play (D,q); Play (D,h);
Play (E,q); Play (G,q); Play (G,h);
Play (E,q); Play (D,q); Play (C,q);
Play (D,q); Play (E,q); Play (E,q);
Play (E,h);
Play (D,q); Play (D,q); Play (E,q);
Play (D,q);
Play (C,h);
end;
{----------------------------------------------------------------------------}
procedure TwinkleStar;
begin
Play (C,q); Play (C,q); Play (E,q); Play (E,q);
Play (G,q); Play (G,q); Play (E,h);
Play (F,q); Play (F,q); Play (D,q); Play (D,q);
Play (lB,q); Play (lB,q); Play (lG,h);
end;
{----------------------------------------------------------------------------}
procedure LondonBridge;
begin
Play (D,tq); Play (E,o); Play (D,q); Play (C,q);
Play (lB,q); Play (C,q); Play (D,h);
Play (lA,q); Play (lB,q); Play (C,h);
Play (lB,q); Play (C,q); Play (D,q);
Play (D,tq); Play (E,o); Play (D,q); Play (C,q);
Play (lB,q); Play (C,q); Play (D,h);
Play (lA,h); Play (D,h); Play (lB,q); Play (lG,tq);
end;
{----------------------------------------------------------------------------}
procedure PopGoesWeasel;
begin
Play (lA,o);
Play (lD,q); Play (lD,o); Play (lE,q); Play (lE,o);
Play (lFs,q); Play (lFs,o); Play (lD,q); Play (lA,o);
Play (lD,q); Play (lD,o); Play (lE,q); Play (lE,o);
Play (lFs,tq); Play (lD,tq);
Play (lD,tq); Play (lE,q); Play (lE,o);
Play (lFs,q); Play (lFs,o); Play (lD,tq);
Play (B,tq); Play (lE,q); Play (lG,o);
Play (lFs,tq); Play (lD,q);
end;
{----------------------------------------------------------------------------}
procedure FarmerInDell;
begin
Play (lC,o);
Play (lF,q); Play (lF,o); Play (lF,q); Play (lF,o);
Play (lF,th); Play (lG,o);
Play (lA,q); Play (lA,o); Play (lA,q); Play (lA,o);
Play (lA,th); Delay (120);
Play (C,tq); Play (C,q); Play (D,o);
Play (C,q); Play (lA,o); Play (lF,q); Play (lG,o);
Play (lA,q); Play (lA,o); Play (lG,q); Play (lG,o);
Play (lF,th);
end;
{----------------------------------------------------------------------------}
procedure ThisOldMan;
begin
Play (D,q); Play (lB,q); Play (D,h);
Play (D,q); Play (lB,q); Play (D,h);
Play (E,q); Play (D,q); Play (C,q); Play (lB,q);
Play (lA,q); Play (lB,q); Play (C,h);
Play (D,q); Play (lG,q); Play (lG,o); Play (lG,o); Play (lG,q);
Play (lG,o); Play (lA,o); Play (lB,o); Play (C,o); Play (D,h);
Play (D,q); Play (lA,q); Play (lA,q); Play (C,q);
Play (lB,q); Play (lA,q); Play (lG,q); Delay (220);
end;
{----------------------------------------------------------------------------}
procedure EeensySpider;
begin
Play (lF,q); Play (lF,o); Play (lF,q); Play (lG,o);
Play (lA,tq); Play (lA,q); Play (lA,o);
Play (lG,q); Play (lF,o); Play (lG,q); Play (lA,o);
Play (lF,tq); Delay (320);
Play (lA,tq); Play (lA,q); Play (lAs,o);
Play (C,tq); Play (C,tq);
Play (lAs,q); Play (lA,o); Play (lAs,q); Play (C,o);
Play (lA,tq); Delay (320);
Play (lF,tq); Play (lF,q); Play (lG,o);
Play (lA,tq); Play (lA,q); Play (lA,o);
Play (lG,q); Play (lF,o); Play (lG,q); Play (lA,o);
Play (lF,tq); Play (lC,q); Play (lC,o);
Play (lF,q); Play (lF,o); Play (lF,q); Play (lG,o);
Play (lA,tq); Play (lA,q); Play (lA,o);
Play (lG,q); Play (lF,o); Play (lG,q); Play (lA,o);
Play (lF,tq); Delay (320);
end;
{---------------------------------------------------------------------------}
procedure InAndOut;
begin
Play (lG,q);
Play (lD,q); Play (lG,q); Play (lB,tq); Play (C,o);
Play (lB,q); Play (lA,h); Play (lA,q);
Play (lD,q); Play (lFs,q); Play (lA,tq); Play (lB,o);
Play (lA,q); Play (lG,h); Play (lG,q);
Play (lD,q); Play (lG,q); Play (lB,tq); Play (c,o);
Play (lB,q); Play (lA,h); Play (lA,q);
Play (D,q); Play (D,q); Play (C,q); Play (lA,q);
Play (lG,th);
end;
{----------------------------------------------------------------------------}
procedure MulberryBush;
begin
Play (lF,o); Play (lF,o); Play (lF,o); Play (lF,q); Play (lA,o);
Play (C,o); Play (C,o); Play (lA,o); Play (lF,q); Play (lF,o);
Play (lG,o); Play (lG,o); Play (lG,o); Play (lG,q); Play (lG,o);
Play (lE,o); Play (lE,o); Play (lD,o); Play (lC,tq);
Play (lF,o); Play (lF,o); Play (lF,o); Play (lF,q); Play (lA,o);
Play (C,o); Play (C,o); Play (lA,o); Play (lF,q); Play (lF,o);
Play (lG,q); Play (lG,o); Play (lC,o); Play (lD,o); Play (lE,o);
Play (lF,tq); Play (lF,tq);
end;
{----------------------------------------------------------------------------}
procedure StarWars;
begin
Play (C,h); Play (G,h); Play (F,s); Play (E,s); Play (D,s);
Play (hC,h); Play (G,h); Play (F,s); Play (E,s); Play (D,s);
Play (hC,h); Play (G,h); Play (F,s); Play (E,s); Play (F,s);
Play (D,h); Play (lG,s); Play (lG,s); Play (lG,s); Play (C,h);
Play (G,h); Play (F,s); Play (E,s); Play (D,s); Play (hC,h);
Play (G,h); Play (F,s); Play (E,s); Play (D,s); Play (hC,h);
Play (G,h); Play (As,s); Play (A,s); Play (As,s); Play (G,h);
Play (G,h); Play (lG,h); Play (lG,s); Play (lA,th);Play (lA,o);
Play (F,o); Play (E,o); Play (D,o); Play (C,o); Play (C,s);
Play (D,s); Play (E,s); Play (D,s); Play (lA,o); Play (lB,q);
Play (lG,tq);Play (lG,s); Play (lA,th); Play (lA,o); Play (F,o);
Play (E,o); Play (D,o); Play (C,o); Play (G,o); Play (D,th);
Play (lG,tq);Play (lG,s); Play (lA,th); Play (lA,o); Play (F,o);
Play (E,o); Play (D,o); Play (C,o); Play (C,s); Play (D,s);
Play (E,s); Play (D,s); Play (lA,o); Play (lB,q); Play (G,tq);
Play (G,s); Play (hC,tq);Play (As,s); Play (Gs,tq);Play (G,s);
Play (F,tq); Play (Ds,s); Play (D,tq); Play (C,tq); Play (G,h);
Play (G,tq); Play (G,s); Play (G,s); Play (G,s); Play (G,s);
Play (hC,o); Play (C,s); Play (C,s); Play (C,s); Play (C,th);
end;
{----------------------------------------------------------------------------}
begin
LittleLamb;
LondonBridge;
PopGoesWeasel;
FarmerInDell;
ThisOldMan;
EeensySpider;
InAndOut;
MulberryBush;
StarWars;
end.